COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		SUBROUTINE CLIP(J,K,L)
C00003 ENDMK
C⊗;
	SUBROUTINE CLIP(J,K,L)
C J=X  K=Y  L=PEN UP-DOWN
	IF(J.GT.512.OR.J.LT.-511)GO TO 1
	IF(K.GT.512.OR.K.LT.-511)GO TO 2
 
	NOUT=0
	CALL LIN(J,K,L)
100	JJ=J
	KK=K
	RETURN
1	CALL CLP(JJ,KK,J,K,L,NOUT)
	GO TO 100
2	CALL CLP(KK,JJ,K,J,L,NOUT)
	GO TO 100
	END

	SUBROUTINE CLP(JJ,KK,J,K,L,NOUT)
 	IF(NOUT.LT.0)RETURN   
C PREVIOUS POINT WAS ALSO OUT OF BOUNDS.
	IF(L.EQ.3)RETURN
C PEN UP=3
	N=512
	IF(J.LT.-511)N=-511
	KK=K*(N-JJ)/J
	CALL LIN(KK,JJ,L)
	NOUT=-1
	END       
 
	SUBROUTINE LIN(J,K,L)
	IF(L.EQ.3)GO TO 1
	CALL AVECT(J,K)
	RETURN
1	CALL AIVECT(J,K)
	END